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INTRODUCTION 



This booklet includes 2 programs for the Texas 
Instruments Model SR-52 programmable calculator. 
These programs transfer the calculation capability 
of the Electro Optical Industries Inc. blackbody 
radiation sliderule to the Model SR-52 but with 
5 significant figure accuracy. 

A copy of the manual for the blackbody 
sliderule is included since it defines all terms and 
equations and provides useful examples of the use 
of the equations. 
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PROGRAM TITLE: 

BLACKBODY RADIATION SLIDERULE 



• • • • • 

PROGRAM DESCRIPTION, EQUATIONS, VARIABLES: 

Planck’s expression for hemispherical blackbody flux density 
radiated in the wavelength interval X to X+dX is 

= ‘ " e c 2 /XT_ 1 [W/cm^m] 

where T = blackbody temperature (Kelvins) 

Cj = 37415 W - /im 4 / cm 2 
c 2 = 14388 fim-K. 



The corresponding expression for photon output is 

c / # 1 

X 4 0 C 2/XT_j 



Qx 



[photons/sec-cm 2 -/im] 



where c/ = 1.88365 x 10 2i Mm 3 /sec-cm 2 . 



These programs compute 

A A oo 

H X’ Qx> / H x dX > / Qx dx ’ / H x dX ’ 

0 0 x 

oo oo 

J*Q^dX given X and T, f H^dX, 

X o 

OO 

Qo-oo= J*Q a^X given T, as well as 



T - t c + 273.15 - 5/9 (t f -32) + 273.15 given either t c 
(Celsius temperature) or t f (Fahrenheit temperature). 
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TITLE: BLACKBODY RADIATION SLIDERULE I (Energy) 







•♦A* BLACKBODY RADIATION SLIDERULE 1 


H^( W/ cm 2 ^ m ) 


H o _jW/ cm 2 ) 


/H x d MW/cm 2 ) 




X (jum) 


T (K) 


t c (° c )> T 


t f (°F ) ♦ T 



STEP 


PROCEDURE 


ENTER 


PRESS 


DISPLAY 


1 


Enter program (A and B) 








2 


To calculate Hx 










input wavelength X 


X(jiim) 


A 






blackbody temperature T, 


T (K) Note 1 


B 






compute Hx 




*A' 


Hx (W/cm 2 - £tm) 
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To calculate H 

O-oo 










input T 


T (K) Note 1 


A 






compute H 0 _ oo 




*B' 


H 0 -oo (W/cm 2 ) 
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To calculate /HxdX 










input X 


X(jum) 


A 






input T 


T (K) Note 1 


B 






compute answer 




*C # 


/HxdX (W/ cm 2 ) 




= 0 ^ H XdX if pos. 




















= \f HxdX if neg. 




























NOTES: 




1 Temperature may be entered in °C or °F by pressing C or D, respectively, instead of B. 




2 X and T are stored in memory on entry and need not be re-entered for subsequent calculations. 















5 



LOC 


CODE 


KEY 


LOC 


CODE 


KEY 


LOC 


CODE 


KEY 


LABELS 


000 

112 


46 


*LBL 




01 


1 




05 


5 


A X (jum) 




11 


A 




04 


4 




46 


*LBL 


B T(K) 




42 


STO 


040 

152 


03 


3 




57 


*fix 


C t c (°C)>T 




00 


0 




08 


8 




52 


EE 


D t f (°C)+T 




01 


1 




08 


8 


080 

192 


57 


*fix 


E 


005 

117 


56 


*rtn 




55 


-r 




04 


4 


A H X ( W /cm 2 -jum) 




46 


*LBL 




43 


RCL 




95 


= 


B Ro-ooj^/cm 2 ) 




12 


B 


045 

157 


00 


0 




56 


*rtn 


c' /H X dX(W/ cm2 ) 




42 


STO 




01 


1 




46 


*LBL 


d' 




00 


0 




55 


-5- 


085 

197 


17 


*B' 


e' 


010 

122 


02 


2 




43 


RCL 




43 


RCL 


REGISTERS 




56 


*rtn 




00 


0 




00 


0 


00 




46 


*LBL 


050 

162 


02 


2 




02 


2 


oi X 




13 


C 




95 


= 




45 


y x 


02 T 




85 


+ 




42 


STO 


090 

202 


04 


4 


03 used 


015 

127 


02 


2 




00 


0 




55 


-s- 


04 used 




07 


7 




03 


3 




01 


1 


05 used 




03 


3 


055 

167 


56 


*rtn 




07 


7 


06 used 




93 






46 


*LBL 




06 


6 


07 




01 


1 




16 


*A' 


095 

207 


03 


3 


08 


020 

132 


05 


5 




15 


E 




07 


7 


09 




95 


. = 




22 


INV 




52 


EE 


10 




41 


GTO 


060 

172 


23 


In x 




07 


7 


11 




12 


B 




75 


- 




41 


GTO 


12 




46 


*LBL 




01 


1 


100 

212 


57 


*fix 


13 


025 

137 


14 


D 




95 


= 




46 


*LBL 


14 




75 


- 




20 


*1/x 




18 


*C' 


15 




03 


3 


065 

177 


65 


X 




00 


0 


16 




02 


2 




03 


3 




42 


STO 


17 




95 


= 




07 


7 


105 

217 


00 


0 


18 


030 

142 


65 


X 




04 


4 




04 


4 


19 




05 


5 




01 


1 




01 


1 


FLAGS 




55 




070 

182 


05 


5 




42 


STO 


0 




09 


9 




55 






00 


0 


1 




41 


GTO 




43 


RCL 


110 

222 


05 


5 


2 


035 

147 


13 


C 




00 


0 




15 


E 


3 




46 


*LBL 




01 


1 








4 




15 


E 


075 

187 


45 


y x 
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LOC 


CODE 


KEY 


LOC 


CODE 


KEY 


LOC 


CODE 


KEY 


LABELS 


000 

112 


75 


- 


0 


65 


X 




75 


- 


A 




93 






43 


RCL 




43 


RCL 


B 




08 


8 


040 

152 


00 


0 




00 


0 


C 




95 


= 




05 


5 




04 


4 


D 




80 


*if pos 




95 


= 


080 

192 


55 


-f 


E 


005 

117 


44 


SUM 




65 


X 




01 


1 


a' 




10 


*E # 




53 


< 




44 


SUM 


B ' 




07 


7 


045 

157 


42 


STO 




00 


0 


c' 




55 


4 




00 


0 




05 


5 


D ' 




08 


8 




06 


6 


085 

197 


52 


EE 


e' 


010 

122 


04 


4 




65 


X 




06 


6 


REGISTERS 




75 


- 




53 


( 




95 


= 


00 




10 


*E' 


050 

162 


42 


STO 




80 


*if pos 


01 




05 


5 




85 


4 




44 


SUM 


02 




95 


= 




03 


3 


090 

202 


43 


RCL 


03 


015 

127 


55 


-5- 




54 


> 




00 


0 


04 




06 


6 




85 


4 




04 


4 


05 




00 


0 


055 

167 


06 


6 




65 


X 


06 




85 


+ 




54 


> 




01 


1 


07 




10 


*E' 




85 


4 


095 

207 


05 


5 


08 


020 

132 


04 


4 




06 


6 




55 


4 


09 




55 


4- 




95 


= 




59 


*7 r 


10 




08 


8 


060 

172 


55 


4 




45 


y x 


11 




75 


- 




43 


RCL 




04 


4 


12 




10 


*E' 




00 


0 


100 

212 


65 


X 


13 


025 

137 


03 


3 




05 


5 




41 


GTO 


14 




55 


4 




45 


y x 




17 


*B' 


15 




03 


3 


065 

177 


04 


4 




46 


*LBL 


16 




95 


= 




55 


4 




10 


*E' 


17 




41 


GTO 




43 


RCL 


105 

217 


43 


RCL 


18 


030 

142 


02 


2 




00 


0 




00 


0 


19 




00 


0 




06 


6 




03 


3 


FLAGS 




05 


5 


070 

182 


22 


INV 




45 


y x 


0 




46 


*LBL 




23 


In x 




56 


*rtn 


1 




44 


SUM 




95 


= 


110 

222 






2 


035 

147 


43 


RCL 




44 


SUM 








3 




00 


0 




00 


0 








4 


1 03 


3 


075 

187 


04 


4 
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TITLE: BLACKBODY RADIATION SLIDERULE II (Photons) 







◄■A* 


BLACKBODY RADIATION SLIDERULE II 




Q *( 


' photons \ 


q / photons \ 


fQ Ph0t0ns \ 




^ sec-cm 2 pm / 


0_oo \sec-cm 2 / 


^ \ sec-cm 2 / 








T(K) 


t c (°C)-T 


t f (°F ) * T 



STEP 


PROCEDURE 


ENTER 


PRESS 


DISPLAY 


1 


Enter program (A and B) 








2 


To calculate Q\ 










input wavelength X 


X (pm) 


A 






blackbody temperature T 


T (K) Note 1 


B 






compute Q\ 




*A' 


/ photons \ 
^X \ sec-cm 2 ^(m > 












3 


To calculate 










input T 


T (K) Note 1 


A 






compute Q 0 _ w 




*B' 


_ / photons \ 

U 0-oc \ sec-cm 2 / 












4 


To calculate /QxdX 










input X 


x(jum) 


A 






input T 


T (K) Note 1 


B 






compute answer 




*C' 


/QXdA(^) 




= 0 /^Q\dX if pos. 










= -^/Q^dX if neg. 






































NOTES: 




1 Temperature may be entered in °C or °F by pressing C or D, respectively, instead of B. 




2 X and T are stored in memory on entry and need not be re-entered for subsequent calculations. 
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LOC 


CODE 


KEY 


LOC 


CODE 


KEY 


LOC 


CODE 


KEY ; 


LABELS 


000 

112 


42 


STO 




46 


*LBL 




00 


0 


A 




00 


0 




44 


SUM 




04 


4 


B 




05 


5 


040 

152 


43 


RCL 




55 


-r 


C 




15 


E 




00 


0 




01 


1 


D 




75 


- 




03 


3 


080 

192 


44 


SUM 


E 


005 

117 


93 






65 


X 




00 


0 


a' 




08 


8 




43 


RCL 




05 


5 


b' 




07 


7 


045 

157 


00 


0 




52 


EE 


c' 




95 


= 




05 


5 




06 


6 


o' 




80 


*if pos 




95 


= 


085 

197 


95 


= 


e' 


010 

122 


44 


SUM 




42 


STO 




80 


*if pos 


REGISTERS 




10 


*E' 




00 


0 




44 


SUM 


00 




06 


6 


050 

162 


06 


6 




43 


RCL 


01 




55 






85 


+ 




00 


0 


02 




09 


9 




01 


1 


090 

202 


04 


4 


03 


015 

127 


00 


0 




95 


= 




55 


- 


04 




75 


- 




40 


*x 2 




02 


2 


05 




10 


*E' 


055 

167 


85 


+ 




93 




06 




04 


4 




01 


1 




04 


4 


07 




95 


= 




95 


= 


095 

207 


00 


0 


08 


020 

132 


55 






55 


- 




04 


4 


09 




04 


4 




43 


RCL 




01 


1 


10 




08 


8 


060 

172 


00 


0 




02 


2 


1 1 




85 


+ 




05 


5 




65 


X 


12 




10 


*E' 




45 


y x 


100 

212 


41 


GTO 


13 


025 

137 


03 


3 




03 


3 




17 


*B' 


14 




55 






55 






46 


*LBL 


15 




06 


6 


065 

177 


43 


RCL 




10 


*E' 


16 




75 


_ 




00 


0 




43 


RCL 


17 




10 


*E' 




06 


6 


105 

217 


00 


0 


18 


030 

142 


02 


2 




22 


INV 




03 


3 


19 




55 


-f 




23 


In x 




45 


y x 


10 FLAGS 




02 


2 


070 

182 


95 


= 




56 


*rtn 


0 




95 


= 




44 


SUM 








1 




41 


GTO 




00 


0 


110 

222 






2 


035 

147 


02 


2 




04 


4 








3 




00 


0 




75 


- 








4 




03 


3 


075 

187 


43 


RCL 
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NOTES 



■HU 




TEXAS INSTRUMENTS' SR-52 
PROGRAMMABLE 
POCKET-SIZED CALCULATOR 




ELECTRO OPTICAL INDUSTRIES' 
MODEL 17 

RADIATION SLIDERULE 
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THERMOELECTRIC 

DIFFERENTIAL 

BLACKBODIES 



CRYOGENIC VACUUM 
BLACKBODIES 




COLLIMATORS 
1 inch to 12 inches 




SPECTRUM ANALYZER 
1Hz to 50kHz 



PREAMPLIFIER 
low impedance 




SPECTRORADIOMETERS 




electro optical industries ,■ inc. □ P . 0 . box mo 



□ santa barbara, California 93105 □ ( 805) 964-6 701 



electro optical industries, inc. □ p.o. box 3 7 70 □ santa barbara, California 93105 

telex: 658 427 



